home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / disklabl.arc / DISK LABELER+ (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  16KB  |  336 lines
  1. 0 X$="XX":FORI=.TO3:X$=X$+X$:NEXT:X$=X$+"XXXXXXX":GOTO392
  2. 2 *********************************:*THEDISKLABELER+V1.1*:*BYFREDLAYBERGER--SEP1985*:*OKAYTOUSEBUTNOTTOSELL*:*********************************
  3. 7 PRINT"[147]"CY$S2$BL$R$S1$:POKE53281,11:GOSUB19:Y=24:X=.:GOSUB9:PRINTBL$S1$CY$S3$;:POKE2023,160:POKE56295,3:RETURN
  4. 9 PRINTLEFT$("",Y)TAB(X);:RETURN
  5. 10 GOSUB16:Y=24:X=47:GOSUB9:PRINTR$CY$"  PRESS ' ^ ' TO RETURN    ";:I$=""
  6. 11 Y=24:X=20-LEN(P$)/2:GOSUB9:PRINTW$P$;:FORI=1TO200:NEXT:A=A+1AND1:POKE199,A:GETI$:IFI$=""THEN11
  7. 13 RETURN
  8. 14 Y=24:X=.:GOSUB9:PRINTBL$S3$R$" "O$;:Y=24:X=20-LEN(P$)/2:GOSUB9:PRINTP$;:RETURN
  9. 16 Y=24:X=40:GOSUB9:PRINTCY$S3$W$;:RETURN
  10. 17 GOSUB19:GOSUB14:GOSUB16:RETURN
  11. 18 Y=22:X=8:GOSUB9:PRINTR$W$"INSERT "P$" DISKETTE ";:RETURN
  12. 19 Y=3:X=.:GOSUB9:FORI=3TO23:PRINT"[155]                                      [146]":NEXT:RETURN
  13. 21 POKE808,225:A1=PEEK(55):A2=PEEK(56):POKE55,PEEK(51):POKE56,PEEK(52):RETURN
  14. 22 A=FRE(.):POKE55,A1:POKE56,A2:POKE808,237:IFA=>3000THENRETURN
  15. 23 Y=10:X=11:GOSUB9:PRINT"[158]PROGRAM MAY PAUSE":Y=11:X=9:GOSUB9:PRINT"[158]FOR GARBAGE COLLECTION":Z=FRE(.):Y=10:X=11:GOSUB9:PRINT"[155]                  ":Y=11:X=9:GOSUB9:PRINT"[155]                      ":RETURN
  16. 28 INPUT#15,ER,ER$,T,S:RETURN
  17. 29 GOSUB19:Y=22:X=9:GOSUB9:POKE53281,2:PRINTER;ER$;T;S:P$=S6$:GOSUB10:RETURN
  18. 30 P$=P1$:GOSUB17:CLOSE15:OPEN15,DD,15,"I"+MID$(STR$(DR),2,1)+":":GOSUB28:RETURN
  19. 31 GOSUB29:X=PEEK(152):FORI=1TOX:CLOSEPEEK(601):NEXT:RETURN
  20. 33 Y=24:X=47:GOSUB9:PRINTR$CY$"PRESS 'RETURN' TO CONTINUE";:IFUTHENRETURN
  21. 34 X=21-LEN(P$):GOSUB9:PRINTW$P$;:Y=24:X=21
  22. 35 GOSUB21
  23. 36 A$=J$+RIGHT$(A$,J-I):GOSUB9:PRINTR$A$;:GOSUB9:PRINTR$J$;:IFI<JTHENPRINT"[166]";
  24. 37 WAIT198,1:GETI$:POKE198,.:IFI$=CHR$(13)THEN49
  25. 38 IFI$=CHR$(19)ORI$=CHR$(34)ORI$=""ORI$=CHR$(131)ORI$=CHR$(147)ORI$=CHR$(141)THEN36
  26. 39 IFI<=1THENIFI$=CHR$(20)ORI$=CHR$(157)THENI=.:J$="":GOTO36
  27. 40 IFI$=CHR$(29)ANDI<JTHENI=I+1:J$=LEFT$(A$,I):GOTO36
  28. 41 IFI$=CHR$(148)THEN36
  29. 42 IFI$=CHR$(20)ORI$=CHR$(157)THENJ$=LEFT$(J$,LEN(J$)-1):I=I-1:GOTO36
  30. 43 IFI$=CHR$(17)THENPRINT"[145]":J$=LEFT$(J$,LEN(J$)):GOTO36
  31. 44 IFI$=CHR$(145)THENPRINT"[145]":J$=LEFT$(J$,LEN(J$)):GOTO36
  32. 45 IFKTHENIFI$="*"THEN47
  33. 46 IFSL<>1THENIFI$="*"THENJ=I+1:GOTO48
  34. 47 IFI=JTHENIFI$<>CHR$(13)THEN36
  35. 48 J$=J$+I$:I=I+1:GOTO36
  36. 49 GOSUB22:RETURN
  37. 51 DEFFNR(X)=INT((IP/CL-INT(IP/CL))*CL+.5):C1$=CHR$(15):C2$=CHR$(18):Z=.:IP=N:C3$=CHR$(14):C4$=CHR$(20):H1$=E$+"E"+E$+"G":H2$=E$+"F"+E$+"H":T1$=C1$+E$+"S"+CHR$(48)+E$+"A"+CHR$(6):T2$=C2$+E$+"T"+E$+"A"+CHR$(12)
  38. 55 A=2:ONPCGOTO56,57,58,59,60,61,62,63,64,65,66,67
  39. 56 E=1:B=.:C=1:D=.:CL=3:PL=1:RETURN
  40. 57 E=1:B=2:C=.:D=1:CL=3:PL=10:RETURN
  41. 58 E=1:B=2:C=.:D=1:CL=3:PL=16:RETURN
  42. 59 E=1:B=2:C=2:D=9:CL=3:PL=16:RETURN
  43. 60 E=8:B=4:C=.:D=1:CL=4:PL=28:RETURN
  44. 61 E=1:B=2:C=.:D=1:CL=3:PL=14:RETURN
  45. 62 E=7:B=1:C=.:D=2:CL=4:PL=22:RETURN
  46. 63 E=7:B=1:C=.:D=1:CL=4:PL=28:RETURN
  47. 64 E=10:B=4:C=1:D=3:CL=4:PL=36:RETURN
  48. 65 E=19:B=8:C=1:D=1:CL=5:PL=30:GOTO69
  49. 66 E=19:B=8:C=1:D=1:CL=5:PL=30:T1$=C1$+E$+"G":T2$=C2$+E$+"H":GOTO69
  50. 67 A=1:E=19:B=6:C=1:D=1:CL=3:PL=48:P$=" * * * * * * * * * *":T1$=E$+"E":T2$=E$+"F"
  51. 69 X=INT(IP/CL):R=FNR(X):IFR>.THENIFR<=CLTHENX=X+1
  52. 70 RETURN
  53. 72 U=3:Y=20:X=17-LEN(P$)/2:GOSUB9:PRINTP$:X=X+LEN(P$)+2:GOSUB9:PRINTW$"NO ":Y=Y+1:GOSUB9:PRINTR$"YES":GOSUB205:IFI$="^"THENRETURN
  54. 75 I$="N":IFC=1THENI$="Y":POKES+B,160
  55. 76 RETURN
  56. 78 F$=":\*":U=1:GOSUB112:IFERTHENN=.:GOSUB92:RETURN
  57. 79 IFI$<>"^"THENIFNF<.THENP$=P7$:GOSUB10:RETURN
  58. 80 F$=V$(B/40+BB):GOSUB92:IFI$="^"THENRETURN
  59. 81 GOSUB30:OPEN1,DD,.,MID$(STR$(DR),2,1)+":"+F$+",S,R":GOSUB28:IFERTHEN31
  60. 83 GOSUB21:INPUT#1,N:INPUT#1,DT$:INPUT#1,ID$:INPUT#1,BK$:INPUT#1,P:GOSUB467:IFMATHEND$=ID$:ID$="\\"
  61. 85 F$=D$+ID$:I$="":Y=5:X=5:GOSUB9:PRINTW$R$"LOADING...":Y=6:GOSUB9:PRINTNTAB(10)DT$"  "ID$:POKE850,76:POKE851,88:POKE852,3:POKE952,21:FORI=1TON:SYSDL:T$(I)=LEFT$(X$,20):Y=7:GOSUB9:PRINTR$ITAB(10)T$(I):NEXT:GOSUB22:GOSUB28:IFERTHEN31
  62. 91 CLOSE1:BK$=RIGHT$("    "+BK$,4):RETURN
  63. 92 GOSUB21:FORI=1TONF:V$(I)="":NEXT:GOSUB22:RETURN
  64. 94 P$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
  65. 95 GOSUB30:F$="\"+LEFT$(DT$,15):OPEN1,DD,8,MID$(STR$(DR),2,1)+":"+F$+",S,W":GOSUB28:IFER=63THENP$=S5$:GOTO107
  66. 98 IFERTHEN31
  67. 99 Y=5:X=5:GOSUB9:PRINTW$R$"SAVING"N"[157] PROGRAMS":GOSUB467:IFMATHENID$=D$
  68. 101 PRINT#1,N:PRINT#1,DT$:PRINT#1,ID$:PRINT#1,BK$:PRINT#1,P:GOSUB467:IFMATHENID$="\\"
  69. 103 FORI=1TON:PRINT#1,T$(I):Y=7:GOSUB9:PRINTI;TAB(10)T$(I):NEXT:GOSUB28:IFERTHEN31
  70. 106 CLOSE1:U=10:RETURN
  71. 107 CLOSE1:GOSUB17:GETI$:IFI$="Y"THENP$=P1$:GOSUB14:PRINT#15,"S"+MID$(STR$(DR),2,1)+":"+F$:GOTO95
  72. 109 IFI$<>"N"THEN107
  73. 110 Y=2:X=60-LEN(H$)/2:GOSUB9:PRINTR$W$H$;:RETURN
  74. 112 IFN<1THEN119
  75. 113 Y=10:X=12:GOSUB9:PRINTR$"[158]CAUTION..."W$:PRINTR$"ENTRIES CURRENTLY IN THE    ":PRINTR$"COMPUTER'S MEMORY ARE LOST  ":PRINTR$"WHEN A FILE IS LOADED UNLESS":PRINTR$"IT HAS BEEN SAVED PRIOR TO  "
  76. 118 PRINTR$"LOADING THE NEW FILE.       "
  77. 119 P$=S8$:IFU>.THENP$=S9$
  78. 120 GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
  79. 121 IFU>.THENGOSUB30:GOTO123
  80. 122 P$=P1$:GOSUB17:CLOSE15:OPEN15,SD,15,"I"+MID$(STR$(SR),2,1)+":":P$=S8$
  81. 123 POKE850,32:POKE851,228:POKE852,255:POKE952,29:IFU>.THENOPEN1,DD,.,"$"+MID$(STR$(DR),2,1)+F$:GOTO126
  82. 125 OPEN1,SD,.,"$"+MID$(STR$(SR),2,1)+F$
  83. 126 GOSUB28:IFERTHEN31
  84. 127 IFN>1THENGOSUB21:FORI=.TON:T$(I)="":NEXT:GOSUB22:N=.:Z=FRE(.)
  85. 128 SYSDL:DT$=MID$(X$,7,16):ID$=MID$(X$,25,2):H$=DT$+ID$:GOSUB110:NF=-1:POKE850,76:POKE851,100:POKE852,3:POKE952,24:GOSUB21
  86. 132 SYSDL:B$=LEFT$(X$,1):C$=MID$(X$,2,1):S$=STR$(ASC(C$)*256+ASC(B$)):S$=RIGHT$("    "+S$,4):IFSTTHEN137
  87. 134 Y=5:X=9:GOSUB9:PRINTW$R$MID$(X$,3,19)S$:NF=NF+1:V$(NF)=MID$(X$,3,16)+MID$(X$,20,2)+S$:GOTO132
  88. 137 GOSUB22:GOSUB28:IFERTHEN31
  89. 138 BK$=S$:IFI$="^"THENN=.
  90. 139 CLOSE1:IFNF<.THENRETURN
  91. 140 H$=H$+BK$+" BKS FREE":GOSUB110
  92. 142 GOSUB19:PRINTP4$P5$;:IFU=1THENY=25:X=.:GOSUB9:PRINTS0$;
  93. 143 S=1145:B=.:FORK=.TONFSTEP38
  94. 144 Y=4:X=2:FORJ=.TO18:SL=13:X=2:GOSUB174:Y=Y+1:IFY=23THENY=4
  95. 146 PRINT:IFJ+K=NFTHENJ=37
  96. 147 NEXT:X=2
  97. 148 POKES+B,62:POKE198,.:WAIT198,1:GETI$:IFI$="[145]"THENB=B-40:POKES+B+40,160:IFB=-40THENPOKES+B,160:B=18*40:GOTO152
  98. 150 IFI$=""THENB=B+40:POKES+B-40,160:IFB=19*40THENPOKES+B,160:B=.:GOTO152
  99. 151 POKES+B-40,160:IFI$<>""THEN154
  100. 152 IFS=1164THENPOKES+B,160:S=S-19:X=2:GOTO154
  101. 153 IFS=1145THENPOKES+B,160:S=S+19:X=22
  102. 154 IFU=1THENIFI$="E"ORI$="^"THENK=NF:NEXT:GOSUB179:U=.:RETURN
  103. 155 IFU=2THENIFI$="^"THENK=NF:NEXT:GOSUB179:U=.:RETURN
  104. 156 IFI$="E"THEN167
  105. 157 IFI$="S"THENIFU<>1THENGOSUB178:POKES+B,160:GOTO144
  106. 158 IFI$="^"THENK=NF:NEXT:GOSUB179:RETURN
  107. 159 IFNF>37THENIFI$="N"THENGOSUB19:B=.:S=1145:NEXT:GOTO142
  108. 160 IFI$="P"THENIFK>.THENK=K-38:B=.:S=1145:GOSUB19:GOTO144
  109. 161 IFI$<>CHR$(13)THEN148
  110. 162 BB=K:POKE198,.:Y=B/40+4:GOSUB9:IFS=1164THENBB=K+19:X=21
  111. 163 IFU=1THENIFV$(B/40+BB)>""THENRETURN
  112. 164 IFX(B/40+BB)=1THENX(B/40+BB)=.:PRINTO$;:GOTO166
  113. 165 IFX(B/40+BB)=.THENX(B/40+BB)=1:PRINTR$;
  114. 166 GOSUB9:GOSUB173:PRINT:GOTO148
  115. 167 P$=W$+P2$:GOSUB14:GOSUB16:GETI$:IFI$="Y"THENU=9:GOTO170
  116. 168 IFI$<>"N"THEN167
  117. 169 Y=24:X=.:GOSUB9:PRINTP4$P5$;:X=2:Y=Y-1:GOTO148
  118. 170 GOSUB21:P$=P1$:GOSUB17:N=1:FORI=.TONF:IFX(I)=1THENT$(N)=LEFT$(V$(I),17)+RIGHT$(V$(I),3):X(I)=.:N=N+1
  119. 172 V$(I)="":NEXT:GOSUB22:N=N-1:P=1:RETURN
  120. 173 PRINTW$LEFT$(V$(B/40+BB),SL)MID$(V$(B/40+BB),SL+4,1)RIGHT$(V$(B/40+BB),3);:RETURN
  121. 174 GOSUB9:IFX(K+J)=1THENPRINTR$;
  122. 175 PRINTW$LEFT$(V$(K+J),SL)MID$(V$(K+J),SL+4,1)RIGHT$(V$(K+J),3)O$;:IFX(K+J+19)=1THENPRINTR$;
  123. 177 PRINT""LEFT$(V$(K+J+19),SL)MID$(V$(K+J+19),SL+4,1)RIGHT$(V$(K+J+19),3):RETURN
  124. 178 FORI=.TONF:X(I)=X(I)+1AND1:NEXT:RETURN
  125. 179 P$=P1$:GOSUB17:FORI=.TONF:X(I)=.:V$(I)="":NEXT:RETURN
  126. 181 POKE1023,.:P$="SORTING"+STR$(N)+" FILES":GOSUB17:SYSML,T$(.):P=.:POKE1015,SD:POKE1016,DD:POKE1017,SR:POKE1018,DR:POKE1019,SA:RETURN
  127. 184 U=1:G=N+1:T$(G)=" BLANK RECORD   ? 00":GOSUB192:N=N+1:RETURN
  128. 185 P$="PROGRAM NAME?":J=15:A$="               ":J$="":I=.:GOSUB33:IFJ$=""THENRETURN
  129. 186 G=1:P$=P1$:GOSUB17
  130. 187 IFRIGHT$(J$,1)="*"THENJ$=LEFT$(J$,J-1)
  131. 188 J=LEN(J$):IFJ$=LEFT$(T$(G),J)THEN192
  132. 189 G=G+1:IFG=N+1THENGOSUB19:P$="FILE NOT FOUND":GOSUB10:RETURN
  133. 190 GOTO187
  134. 192 P$=BL$:GOSUB17:Y=15:X=10:GOSUB9:IFJ$="D"THEN203
  135. 193 PRINTR$W$P8$:PRINTTAB(X)T$(G):Y=13:X=10:GOSUB9:PRINTR$"[152]CHANGE[146]FROMTO":A$=T$(G):P$=BL$:GOSUB14:GOSUB16:U=1:J$="":I=.:GOSUB33:U=.:PRINTW$;:I=.:J=20:J$="":Y=17:X=10:GOSUB35:J$=A$:I$="":PRINT"[158]";:P$=LEFT$(P2$,12)+"?":GOSUB72:IFI$="N"THEN192
  136. 200 IFK=2THENIFI$="^"THENRETURN
  137. 201 IFI$="^"THENN=N-1:RETURN
  138. 202 T$(G)=J$:P=1:RETURN
  139. 203 P$=P1$:GOSUB14:GOSUB21:FORI=GTON:T$(I)=T$(I+1):NEXT:GOSUB22:N=N-1:J$="":RETURN
  140. 205 B=.:S=1152:Y=24:X=8:GOSUB9:PRINTW$R$".....CRSR=MOVEMENT....."SPC(9)S0$;:C=N:IFU=1THENB=40*G:C=14:S=1193
  141. 207 IFU=2THENC=11:S=1267:IFPCTHENB=40*(PC-1)
  142. 208 IFU=3THENC=1:S=1784+18+LEN(P$)/2
  143. 209 IFI$="D"THENJ$="D"
  144. 210 POKES+B,62:POKE198,.
  145. 211 GETI$:IFI$=""ORI$=""THENIFB+40=760ORB/40=>CTHENPOKES+B,160:B=-40
  146. 212 IFI$=""ORI$=""THENB=B+40:POKES+B,62:POKES+B-40,160
  147. 213 IFI$="[145]"ORI$="[157]"THENIFB-40=-40THENPOKES+B,160:B=760:IFC<19THENB=C*40+40
  148. 214 IFI$="[145]"ORI$="[157]"THENPOKES+B,160:B=B-40:POKES+B,62
  149. 215 IFI$="N"ORI$="P"ORI$="E"ORI$="S"ORI$="^"THENRETURN
  150. 216 IFUTHENIFI$=CHR$(13)THENC=B/40:U=.:RETURN
  151. 217 IFI$<>CHR$(13)THEN211
  152. 218 IFN<19THENC=B/40:GOTO220
  153. 219 C=J-18+B/40:IFC<.THENC=N-ABS(C)+1
  154. 220 IFCTHENG=C:K=2:GOSUB192:C=G
  155. 221 J=C-1:IFN<19THENJ=-1
  156. 222 GOSUB7:RETURN
  157. 224 POKE53280,13:F$=":\*":U=2:GOSUB112:IFERTHENN=.
  158. 225 IFI$="^"ORERTHENRETURN
  159. 226 IFNF<.THENP$=P7$:GOSUB10:N=.:RETURN
  160. 227 IFT$(1)=""THENRETURN
  161. 228 DT$="\MASTER         ":ID$="\\":MA=1:I=.:FORK=1TON:OPEN1,DD,.,MID$(STR$(DR),2,1)+":"+T$(K)+",S,R":INPUT#1,J:I=I+J:CLOSE1:NEXT:BK$=RIGHT$("    "+STR$(I),4):RETURN
  162. 233 IFP=2THEN247
  163. 234 P$=BL$:GOSUB17:P$="SET/RESET OPTIONS?":GOSUB72:IFI$="^"THENRETURN
  164. 235 IFI$="Y"THENGOSUB273
  165. 236 P$=BL$:GOSUB17:V$(.)=DT$+ID$+BK$+STR$(P):P$=P1$:GOSUB14:GOSUB21:FORK=1TON:V$(K)=T$(K):T$(K)="":NEXT:GOSUB22:M=N:P$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THEN243
  166. 239 FORK=1TOM:F$=V$(K):GOSUB81:IFERTHENK=M:GOTO242
  167. 240 GOSUB19:GOSUB285:IFI$="^"THENK=M
  168. 241 GOSUB21:FORI=1TON:T$(I)="":NEXT:GOSUB22
  169. 242 NEXT
  170. 243 P$=P1$:GOSUB17:DT$=LEFT$(V$(.),16):ID$=MID$(V$(.),17,2):BK$=MID$(V$(.),19,4):P=VAL(RIGHT$(V$(.),1)):GOSUB21:FORK=1TOM:T$(K)=V$(K):V$(K)="":NEXT:N=M:CLOSE15:GOSUB22:RETURN
  171. 247 IFVAL(BK$)<1201THEN250
  172. 248 P$=BL$:GOSUB17:Y=20:X=4:GOSUB9:PRINTR$"[158]TOO MANY RECORDS - 1200 MAXIMUM!":P$=S6$:GOSUB10:RETURN
  173. 250 PRINT"[158]";:P$="HAVE YOU SAVED[153] MASTER [158]FILE?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
  174. 251 POKE1015,SD:POKE1016,DD:POKE1017,SR:POKE1018,DR:POKE1019,SA:POKE49152,.:POKE53281,15:PRINT"[147]LOAD"CHR$(34)"DISK LAB.MSORT"CHR$(34)","DD:PRINT"RUN":PRINT"[151]";:POKE198,8:FORI=1TO7:POKE630+I,13:NEXT:STOP
  175. 255 J=-1:GOSUB19:GOSUB467
  176. 256 P$=DT$+ID$+STR$(N)+" PROGRAMS":IFN<1ORI$="^"THENRETURN
  177. 257 Y=2:X=60-LEN(P$)/2:GOSUB9:PRINTW$R$P$:GOTO262
  178. 258 P$=P6$:G=1:IFLEFT$(DT$,3)="\MA"THENP$=MID$(P6$,19):G=.
  179. 259 GOSUB14:GOSUB10:IFI$="^"THENRETURN
  180. 260 IFGTHENIFI$="C"ORI$="D"THENP$=BL$:GOSUB14:GOSUB205:GOTO256
  181. 261 IFN<19THEN259
  182. 262 GOSUB19:X=.:Y=4:GOSUB9:IFI$<>"P"THENJ=J+1:GOTO265
  183. 264 J=J-37:IFJ<.THENJ=N-ABS(J)+1:IFJ<.THENJ=.
  184. 265 IFJ>NTHENJ=.
  185. 266 IFJ=.THEN270
  186. 267 PRINTTAB(9)W$T$(J):IFN<19THENIFJ=NTHEN258
  187. 268 IFPEEK(214)<22THENJ=J+1:GOTO265
  188. 269 GOTO258
  189. 270 PRINTW$R$""P8$:GOTO268
  190. 272 :
  191. 273 P$=BL$:GOSUB17:P$="PRINT OPTIONS":Y=4:X=13:GOSUB9:PRINTCY$P$:PRINTTAB(6)"VERTICAL X HORIZONTAL SIZE":X=4:Y=7:FORI=1TO12:GOSUB9:PRINTR$W$MID$(STR$(I)+"  ",2,2)O$PC$(I):Y=Y+1:NEXT:U=2:GOSUB205:IFI$="^"THENRETURN
  192. 277 PC=C+1:P$=BL$:GOSUB17:P$="COMMENT/DATE/ETC...":J=17:A$=LEFT$("                 ",J-LEN(D$)):GOSUB14:J$=D$:I=LEN(D$):Y=22:X=5:GOSUB9:PRINT"[159]NO COMMAS,SEMICOLONS OR COLONS":GOSUB33:D$=J$:RETURN
  193. 283 P$=BL$:GOSUB17:P$="SET/RESET OPTIONS?":GOSUB72:IFI$="^"THENRETURN
  194. 284 IFI$="Y"THENGOSUB273
  195. 285 IFK>1THEN288
  196. 286 P$=BL$:GOSUB17:Y=18:X=4:GOSUB9:PRINTR$"[158]PREPARE PRINTER & POSITION LABELS":P$=S6$:GOSUB10:IFI$="^"THENRETURN
  197. 288 P$=T3$:E$=CHR$(27):S=4:CLOSES:OPENS,S,SA:GOSUB51:IFMTHENIFPC>9THENGOSUB346
  198. 289 IFK>1THENP$=""
  199. 290 PG=PL:PRINT#S,E$"U"CHR$(48);:FORI=1TOCL:PRINT#S,P$SPC(B/A);:NEXT:PRINT#S:IFK>1THEN294
  200. 292 P$="TEST ALIGNMENT AGAIN?":GOSUB72:S=4:P$=T3$:GOSUB51:IFI$="^"THENCLOSES:RETURN
  201. 293 IFI$="Y"THENLN=.:GOTO288
  202. 294 PRINT#S,H1$;:IFCTHENFORI=1TOC:PRINT#S:NEXT
  203. 295 P$=S4$:GOSUB17:Y=4:X=5:GOSUB9:IFPC>1THEN299
  204. 296 PRINT#S,C3$SPC(E)DT$C4$:GETI$:IFI$="^"THEN345
  205. 297 PRINT#S,C3$SPC(E)ID$" "MID$(STR$(VAL(BK$)),2)" BLKS FREE":PRINT#S,""SPC(E*3)D$H2$:PRINT#S:GOTO345
  206. 299 PRINT#S,C3$SPC(E/2)DT$ID$C4$:GETI$:IFI$THEN345
  207. 300 PRINT#S,""SPC(E)MID$(STR$(VAL(BK$)),2)" BLKS FREE - "D$H2$;
  208. 301 X=INT(IP/CL):IFN>PG*CLTHENX=PL:IP=PG*CL
  209. 302 C3=2*X:C4=3*X:C5=4*X:R=FNR(X):IFR>.THENIFR<=CLTHENX=X+1
  210. 303 C3=2*X:C4=3*X:C5=4*X:ONCLGOTO304,305,307,311,316
  211. 304 C3=IP:C4=IP:C5=IP:GOTO321
  212. 305 IFRTHENC3=2*X-1
  213. 306 GOTO321
  214. 307 ONRGOTO309,310
  215. 308 GOTO321
  216. 309 C3=X:C4=2*X-1:GOTO321
  217. 310 C4=3*X-1:GOTO321
  218. 311 ONRGOTO313,314,315
  219. 312 GOTO321
  220. 313 C3=2*X-1:C4=3*X-2:GOTO321
  221. 314 C4=3*X-1:GOTO321
  222. 315 GOTO321
  223. 316 ONRGOTO318,319,320
  224. 317 GOTO321
  225. 318 C3=2*X-1:C4=3*X-2:C5=4*X-3:GOTO321
  226. 319 C4=3*X-1:C5=4*X-2:GOTO321
  227. 320 C5=4*X-1
  228. 321 PRINT#S,T1$:IFDTHENFORI=1TOD:PRINT#S:NEXT
  229. 323 FORI=1TOCL-1:PRINT#S,P9$SPC(B);:NEXT:PRINT#S,P9$:IFPC<10THENIFX<PL-1THENFORI=1TOINT((PL-X)/2):PRINT#S:NEXT
  230. 325 IFZ>.THENC3=C3+Z:C4=C4+Z:C5=C5+Z:IFN<=PG*CLTHENIP=IP+Z
  231. 326 FORI=1TOX:GETI$:IFI$="^"THENI=X:NEXT:GOTO345
  232. 327 PRINT#S,T$(I+Z)SPC(B);:IFC3=>I+X+ZTHENPRINT#S,T$(I+X+Z)SPC(B);
  233. 329 IFI+C3>IPTHENPRINT#S:GOTO335
  234. 330 IFC4=>I+C3THENPRINT#S,T$(I+C3)SPC(B);
  235. 331 IFI+C4>IPTHENPRINT#S:GOTO335
  236. 332 IFC5=>I+C4THENPRINT#S,T$(I+C4)SPC(B);
  237. 333 IFI+C5>IPTHENPRINT#S:GOTO335
  238. 334 IFC5+X=>I+C5THENPRINT#S,T$(I+C5)
  239. 335 NEXT:IFPC<10THENIFX<PL-1THENFORI=1TOINT((PL-X)/2):PRINT#S:NEXT
  240. 336 IFPC<10THENIFXAND1THENPRINT#S
  241. 337 FORI=1TOCL-1:PRINT#S,P9$SPC(B);:NEXT:IFN<=PG*CLTHENPRINT#S,P9$:GOTO339
  242. 338 PRINT#S,"-----CONTINUED------"
  243. 339 IFPC=6ORPC=7THENFORI=1TO5:PRINT#S:NEXT
  244. 340 IFN<=PG*CLTHEN345
  245. 341 PRINT#S,T2$;H1$:IFCTHENFORI=1TOC:PRINT#S:NEXT
  246. 343 PRINT#S,DT$ID$" CONTINUED...":PRINT#S,"PAGE#"(PG/PL)+1" - "D$H2$;:Z=PG*CL:IP=N-(PG*CL):PG=PG+PL:GOTO301
  247. 345 PRINT#S,T2$;:CLOSES:RETURN
  248. 346 J=66:JJ=7:IFPC=10THENJ=132:JJ=10
  249. 347 IFX+JJ<J-LNTHEN350
  250. 348 IFPC=10THENPRINT#S,E$"A"CHR$(6);
  251. 349 FORI=1TOJ-LN:PRINT#S:NEXT:LN=.:IFPC=10THENPRINT#S,E$"A"CHR$(12);
  252. 350 LN=LN+JJ+X:IFLN=>JTHENLN=.
  253. 351 RETURN
  254. 353 GOSUB17:Z=.:U=.:I=.:P$=R$+"[155]   [157][157][157][157][157]"+O$+W$
  255. 354 SD=SD+I:GOSUB371:Y=7:X=4:GOSUB9:PRINTW$"SOURCE DEVICE #:",P$SD:IFUTHENRETURN
  256. 355 DD=DD+I:GOSUB371:Y=9:GOSUB9:PRINT"MASTER DEVICE #:",P$DD:IFUTHENRETURN
  257. 356 SR=SR+I:GOSUB371:Y=11:GOSUB9:PRINT"SOURCE DRIVE #:",,P$SR:IFUTHENRETURN
  258. 357 DR=DR+I:GOSUB371:Y=13:GOSUB9:PRINT"MASTER DRIVE #:",,P$DR:IFUTHENRETURN
  259. 358 SA=SA+I:Y=15:GOSUB9:PRINT"SECONDARY ADDRESS:",P$SA:IFUTHENRETURN
  260. 359 Y=19:GOSUB9:PRINTR$"USE CURSOR KEYS TO SELECT":Y=21:GOSUB9:PRINTW$R$"USE +/- KEYS TO CHANGE":GOSUB16:Y=24:X=47:GOSUB9:PRINTR$CY$"  PRESS ' ^ ' TO RETURN    ";:IFZ=1THENRETURN
  261. 362 Y=7:U=1
  262. 363 I=.:X=28:GOSUB9:PRINTR$W$">>":X=4:GETI$:IFI$="-"THENI=I-1:GOSUB369
  263. 364 IFI$="+"THENI=I+1:GOSUB369
  264. 365 IFI$=""ORI$=""THENX=25:GOSUB9:PRINTP$:Y=Y+2:U=U+1:X=28:I=.:IFY>15THENY=7:U=1
  265. 366 IFI$="[145]"ORI$="[157]"THENX=25:GOSUB9:PRINTP$:Y=Y-2:U=U-1:X=28:I=.:IFY<7THENY=15:U=5
  266. 367 IFI$="^"ORI$=CHR$(13)THEN380
  267. 368 GOTO363
  268. 369 ONUGOSUB354,355,356,357,358:RETURN
  269. 371 IFSD<8THENSD=15
  270. 372 IFSD>15THENSD=8
  271. 373 IFDD<8THENDD=15
  272. 374 IFDD>15THENDD=8
  273. 375 IFSR<.THENSR=1
  274. 376 IFSR>1THENSR=.
  275. 377 IFDR<.THENDR=1
  276. 378 IFDR>1THENDR=.
  277. 379 RETURN
  278. 380 IFSD=8ANDDD=8THENRETURN
  279. 381 P$=BL$:GOSUB17:P$="CHANGE DEVICE #?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
  280. 382 P$=BL$:GOSUB17:Y=17:X=7:GOSUB9:PRINTR$"[158]TURN OFF ALL DRIVES EXCEPT":Y=Y+1:GOSUB9:PRINTR$"  THE ONE TO BE CHANGED.  "
  281. 384 P$="OLD DEVICE # ":J=2:A$="  ":J$="8":I=1:GOSUB33:IFJ$=""THENRETURN
  282. 385 OD=VAL(J$):IFOD<8OROD>15THEN384
  283. 386 P$="NEW DEVICE # ":J=2:A$="  ":J$="9":I=1:GOSUB33:IFJ$=""THENRETURN
  284. 387 ND=VAL(J$):IFND<8ORND>15THEN386
  285. 388 CLOSE15:OPEN15,OD,15:PRINT#15,"M-W"CHR$(119)CHR$(.)CHR$(2)CHR$(ND+32)CHR$(ND+64):P$=BL$:GOSUB17:Y=20:X=10:GOSUB9:PRINTR$"[158]TURN ON OTHER DRIVE!":P$=S6$:GOSUB10:CLOSE15:RETURN
  286. 392 PRINTCHR$(142):ML=PEEK(45)+256*PEEK(46)-262-3:RESTORE:R$="":O$="[146]":BL$="":CY$="[159]":W$="":POKE53280,7:POKE53281,11:DIMV$(152),T$(152),M$(15),PC$(12):DL=830:SD=9:DD=8:SA=6:CL=3:IFPEEK(1015)<>.THENSD=PEEK(1015):DD=PEEK(1016):SR=PEEK(1017):DR=PEEK(1018):SA=PEEK(1019)
  287. 396 DIMX(152):READM$(.):FORI=1TO15:READM$(I):M$(I)=LEFT$(M$(I)+"                  ",18):NEXT:FORI=1TO12:READPC$(I):NEXT:D$="DISK LABELER+":S1$="                                        [146]":S2$="[159]         THE DISK LABELER+ V1.1         [146]"
  288. 401 S3$="                                       [146]":S4$="PRESS & HOLD '^' TO STOP PRINTING":S5$="[158]REPLACE EXISTING FILE (Y/N)?":S6$="PRESS A KEY TO CONTINUE":S7$="SELECT ONE"
  289. 406 S8$="[158]SOURCE":S9$="[158]MASTER":P1$="WORKING":P2$="SELECTION OK (Y/N)?":P3$="NO FILES AVAILABLE!":P4$="CRSR=MOVEMENT  N=NEXT  P=PREVIOUS[146]":P5$="RETURN=SELECT S=SWAP E=END ^=MENU[146]"
  290. 413 S0$="      RETURN=SELECT  ^=MENU      [146]":P6$="C=CHANGE D=DELETE P=PREVIOUS OTHERS=NEXT":P7$="NO DISK LABELER FILES FOUND":P8$="FILENAME        T SZ":P9$="--------------------"
  291. 418 T3$=" * * * * * *":GOSUB7:Y=3:X=5:GOSUB9:PRINTW$R$"VERIFIED/C64/1541/FX80/CARD?/G":READP$:Y=5:X=4:GOSUB9:PRINT"[158]"R$P$:X=2:FORY=7TO13:READP$:GOSUB9:PRINTW$R$P$:NEXT:FORY=16TO22:READP$:X=20-LEN(P$)/2:GOSUB9:PRINTP$:NEXT:IFPEEK(DL)=160THEN425
  292. 424 OPEN1,8,.,"0:DISK LAB.DIR,S,R":FORI=DLTODL+148:INPUT#1,A:POKEI,A:NEXT:CLOSE1
  293. 425 Z=FRE(.):I$="":P$=" INSTRUCTIONS (Y/N)? ":POKE198,.:GOSUB10:IFI$<>"Y"THEN437
  294. 426 IFCTHENP$=S9$:GOSUB18:P$=S6$:GOSUB10:IFI$="^"THENRETURN
  295. 427 CLOSE1:OPEN15,DD,15:S=3:OPEN1,DD,.,MID$(STR$(DR),2,1)+":DISK LAB.INST,S,R":GOSUB28:IFERTHENGOSUB31:GOSUB7:GOTO425
  296. 429 GOSUB19:X=.:Y=4:GOSUB9:IFS=4THENPRINT#S
  297. 430 INPUT#1,P$:IFP$="END"THENP$=S6$:GOSUB10:GOTO436
  298. 431 IFI$="^"THEN436
  299. 432 PRINTR$"[155]"P$:IFS=4THENPRINT#S,P$
  300. 433 IFPEEK(214)<22THEN430
  301. 434 P$=S6$:GOSUB10:IFI$="P"THENS=4:CLOSES:OPENS,4,SA
  302. 435 GOTO429
  303. 436 CLOSE1:CLOSES:IFU=1THENRETURN
  304. 437 :
  305. 438 GOSUB467:GOSUB7:X=PEEK(152):FORI=1TOX:CLOSEPEEK(601):NEXT:P0$="SORTED":G=2:IFU>8THENG=4:IFU=10THENG=.
  306. 440 POKE198,.:K=.:M=.:LN=.:J$="":F$=DT$:IFN<1THENN=.:DT$="NO FILE NAME   ":ID$="?":BK$="00":P=1:G=.
  307. 442 Y=4:X=10:GOSUB9:PRINTM$(.):Y=5:IFBK$=""THENBK$=" ?"
  308. 443 FORI=1TO15:P$=R$:IFN<1THENIFI=3ORI=4ORI=5ORI=6ORI=8THENP$=O$
  309. 444 IFI=6THENIFP=.THENP$=O$
  310. 445 IFI=7ORI=8THENIFMATHENP$=O$
  311. 446 IFI=11THENIFP=2THENP$=O$
  312. 447 IFI=10ORI=11THENIFMA=.THENP$=O$
  313. 448 GOSUB9:PRINTW$P$RIGHT$("  "+STR$(I),2)W$;:PRINTO$M$(I):Y=Y+1:NEXT:IFPTHENP0$="UNSORTED":IFP=2THENP0$="ALPHABETIZED"
  314. 450 P$=DT$:IFN>.THENP$=P$+ID$+BK$+" BKS FREE"
  315. 451 Y=21:X=20-LEN(P$)/2:GOSUB9:PRINTW$P$:P$=STR$(N)+" PROGRAMS : "+P0$:Y=22:X=20-LEN(P$)/2:GOSUB9:PRINTR$P$
  316. 453 F$="":U=1:GOSUB205:G=C:IFUTHEN462
  317. 454 C=C+1:IFC=1ORC=2ORC=7ORC=9ORC=12ORC=13ORC=14ORC=15THEN458
  318. 455 IFC=6THENIFP=.THENPOKES+B,160:GOTO453
  319. 456 IFC=10ORC=11THENIFMA=.THENPOKES+B,160:GOTO453
  320. 457 IFN<1THENPOKES+B,160:GOTO453
  321. 458 IFC=7ORC=8THENIFMATHENPOKES+B,160:GOTO453
  322. 459 IFC=11THENIFP=2THENPOKES+B,160:GOTO453
  323. 460 P$=BL$:GOSUB17:POKE53280,7:IFC>2THENGOSUB467
  324. 461 ONCGOSUB112,78,255,283,94,181,184,185,224,233,247,272,353,426,463
  325. 462 GOSUB467:GOTO438
  326. 463 IFN=.THEN466
  327. 464 PRINT"[158]";:P$="HAVE YOU SAVED CURRENT [158]FILE?":GOSUB72:IFI$="N"ORI$="^"THENRETURN
  328. 466 PRINT"[147]HAPPY COMPUTING!!":CLR:END
  329. 467 IFLEFT$(DT$,7)="\MASTER"THENPOKE53280,13:MA=1:RETURN
  330. 468 MA=.:POKE53280,7:RETURN:DATA"[158]     MAIN MENU      ","CREATE A NEW FILE","LOAD A FILE":DATA"VIEW/EDIT ENTRIES","PRINT ENTRIES","SAVE ENTRIES":DATA"SORT ENTRIES","ADD A SINGLE ITEM","SEARCH BY NAME"
  331. 473 DATA"CREATE MASTER FILE","PRINT MASTER FILE","ALPHABETIZE MASTER":DATA"PRINT OPTIONS","EQUIPMENT SETUP","INSTRUCTIONS","EXIT TO BASIC":DATA"  15/16 X 3 1/2  HEADER INFO ONLY":DATA"1  7/16 X 4      MAILING LABEL","1 15/16 X 4      MAILING LABEL"
  332. 478 DATA"2 15/16 X 4     SHIPPING LABEL","2 15/16 X 5 3/4 SHIPPING LABEL":DATA"2  1/16 X 4  ROTARY FILE CARD","3 X 5        ROTARY FILE CARD":DATA"3 X 5        FILE CARD","4 X 6        FILE CARD"
  333. 481 DATA"5/SUP ACROSS PAGE","5/CON ACROSS PAGE","3/REG ACROSS PAGE":DATA"**** USER SUPPORTED SOFTWARE ****":DATA"YOU ARE ENCOURAGED TO COPY AND SHARE":DATA"THIS PROGRAM WITH OTHER USERS ON THE"
  334. 485 DATA"CONDITIONS THAT THE PROGRAM IS NOT  ":DATA"DISTRIBUTED IN MODIFIED FORM, THAT  ":DATA"NO FEE OR CONSIDERATION IS CHARGED, ":DATA"AND THAT THIS NOTICE IS NOT BYPASSED":DATA"OR REMOVED.                         "
  335. 490 DATA" IF YOU FIND THIS PROGRAM TO BE   ":DATA" OF VALUE, A CONTRIBUTION TO THE  ":DATA"   AUTHOR WILL BE APPRECIATED.    ":DATA"":DATA"FREDIE J. LAYBERGER":DATA"14524 'N' STREET   ":DATA"OMAHA, NE 68137    "
  336.